﻿module Plots

open Lab3_4
open ChartForm
open System.Windows.Forms.DataVisualization.Charting 

let lab3_4 f =
  let f', f'' = !f, !!f
  let f's = seq { for i in 0.01..0.01..0.3 -> i, (f' i) }
  let f''s = seq { for i in 0.01..0.01..0.3 -> i, (f'' i) }
  let form = new ChartForm( "Lab 3.4")
  form.AddChart(f, SeriesChartType.Point)
  form.AddChart(f's, SeriesChartType.Line)
  form.AddChart(f''s, SeriesChartType.Line)
  form

let Lab3_4 = lab3_4 [(0.0, 1.0);
              (0.1, 1.1052);
              (0.2, 1.2214);
              (0.3, 1.3499);
              (0.4, 1.4918);]

let Lab3_4v2 = lab3_4 [(0.0, 1.0);
                      (0.1, 1.1052);
                      (0.2, 2.2214);
                      (0.3, 1.3499);
                      (0.4, 0.4918);]